home *** CD-ROM | disk | FTP | other *** search
/ Exploring Where & Why / Exploring Where & Why.iso / pc / Lib.cst / 00069_MatchGame.ls < prev    next >
Encoding:
Text File  |  2004-07-11  |  2.9 KB  |  123 lines
  1. --
  2. -- MatchGame
  3. --
  4.  
  5. -- this class handles all runtime game management
  6. -- for a typical Match Game.
  7. -- for variations, extend this class in the individual activity.
  8.  
  9. -- constants:
  10. property delaySecs
  11.  
  12.  
  13. property ancestor
  14. property card
  15.  
  16.  
  17. on new me
  18.   -- initialize constants:
  19.   set delaySecs = 1
  20.   
  21.   set ancestor = new (script "MatchSetUp")
  22.   
  23.   set card = 0
  24.   
  25.   -- add (the actorList, new (script "ObjectUpdater", me))
  26.   return me
  27. end
  28.  
  29.  
  30. on destruct me
  31.   if objectP (ancestor) then destruct (ancestor)
  32.   set ancestor = 0
  33. end
  34.  
  35.  
  36. on initializeRound me
  37.   initializeRound (ancestor)
  38.   hideAnswerCards (me)
  39.   initHandCursor ("pointer", getMatchPieceList (me))
  40. end
  41.  
  42.  
  43. on mouseDown me, spr
  44.   if not showAnswerCard (me, spr) then return 0
  45.   set matchSprite = checkMatch (me, spr)
  46.   
  47.   case (TRUE) of 
  48.     (matchSprite <> 0): -- two cards showing match:
  49.       -- do the corresponding animation for the matched sprites.
  50.       --      playResponseSound(1)
  51.       
  52.       --play the audio file named after the match set
  53.       set clickMember = the member of sprite spr
  54.       set clickName = the name of member clickMember
  55.       set firstSound = clickName & ".aif"
  56.       set playSound = clickName & "match.aif"
  57.       puppetSound 1,0
  58.       puppetSound firstSound
  59.       updateStage
  60.       waitFXSound(#lock)
  61.       set the volume of sound 1 = 255
  62.       puppetSound 1,playSound
  63.       updateStage
  64.       
  65.       --puppetSound playSound
  66.       
  67.       waitFXSound(#lock)
  68.       animateSprites (me, [spr, card]) 
  69.       
  70.       -- move a bar graph if one has been set up:
  71.       moveGraph (me, the name of member the memberNum of sprite matchSprite of castLib the castLibNum of sprite matchSprite)
  72.       
  73.       -- reset sprite information:
  74.       set card = 0
  75.       
  76.       done (me)
  77.     (card <> 0):  -- two cards showing don't match:
  78.       --play the audio file named after the match set
  79.       set clickMember = the member of sprite spr
  80.       set clickName = the name of member clickMember     
  81.       set playSound = clickName & ".aif"
  82.       puppetSound 1,0
  83.       set the volume of sound 1 = 255
  84.       puppetSound 1,playSound
  85.       updateStage
  86.       wait (me, delaySecs)
  87.       --      playResponseSound(0)
  88.       hideAnswerCard (me, spr)
  89.       hideAnswerCard (me, card)
  90.       set card = 0
  91.     otherwise: -- first card is now showing:
  92.       set card = spr
  93.       
  94.       --play the audio file named after the card
  95.       
  96.       set clickMember = the member of sprite card
  97.       set clickName = the name of member clickMember     
  98.       set playSound = clickName & ".aif"
  99.       puppetSound 1,0
  100.       set the volume of sound 1 = 255
  101.       puppetSound 1,playSound
  102.       updateStage
  103.       
  104.   end case
  105.   
  106.   return 1
  107. end
  108.  
  109.  
  110. -- check to see if we are done.  
  111. -- if so, then do an action.
  112.  
  113. on done me
  114.   if checkDone (ancestor) then 
  115.     playResponseSound(1, 1)
  116.     wait (me, delaySecs)
  117.     go "finish"
  118.     unloadCast (me)
  119.     clearHandCursor
  120.   else
  121.     initHandCursor ("pointer", getMatchPieceList (me))
  122.   end if
  123. end